Imports System.Data.OleDb
Imports DTO
Imports DAO

Public Class PhongBUS

    Public Function Lay_Bang(ByVal chuoi_lenh As String) As DataTable
        Dim dt As DataTable
        Dim pDao As New PhongDAO()
        dt = pDao.Lay_Bang(chuoi_lenh)
        Return dt
    End Function

    Public Function Doc_Cau_Truc(ByVal chuoi_lenh As String) As DataTable
        Dim dt As DataTable
        Dim pDao As New PhongDAO()
        dt = pDao.Doc_Cau_Truc(chuoi_lenh)
        Return dt
    End Function

    Public Function TimPhongTheoNhieuTieuChi(ByVal pCRT As PhongCRT) As DataTable
        Dim dt As DataTable
        Dim pDao As New PhongDAO()
        dt = pDao.TimPhongTheoNhieuTieuChi(pCRT)
        Return dt
    End Function

    Public Sub ThemPhong(ByVal dr As DataRow)
        Dim pDao As New PhongDAO()
        pDao.ThemPhong(dr)
    End Sub

    Public Function LayBangPhong() As DataTable
        Dim dt As DataTable
        Dim pDao As New PhongDAO()
        dt = pDao.LayBangPhong()
        Return dt
    End Function

    Public Sub CapNhatPhong(ByVal dr As DataRow)
        Dim pDao As New PhongDAO()
        pDao.CapNhapPhong(dr)
    End Sub

    Public Sub XoaPhong(ByVal dr As DataRow)
        Dim pDao As New PhongDAO()
        pDao.XoaPhong(dr)
    End Sub

End Class
